home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / spoc88.zip / LOOPS.ZIP / NUMBERS.BAS < prev    next >
BASIC Source File  |  1988-06-10  |  469b  |  14 lines
  1. 'Toy Program by Tom Wrona
  2.  
  3. CLS
  4. PRINT "Let's play with numbers!"
  5. PRINT "You give me a number and I'll tell you facts about the number."
  6. INPUT "What's your number";number
  7. PRINT "The square root of your number is " SQR(number)"."
  8. INPUT "Want to know something else (Y/N)" answer$
  9. IF UCASE$(answer$) = "N" GOTO DONE
  10. PRINT "A circle with a diameter of"number"would have
  11. PRINT "a circumference of" 3.14 * number"."
  12. DONE:
  13. PRINT "That's all! Thanks for playing!"
  14.